home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 26 / AMIGAplus Sonderheft 26 (2000)(Falke)(DE)(Track 1 of 2)[!].iso / PublicDomain / Spiele / Klotz / Install next >
Text File  |  2000-07-19  |  7KB  |  200 lines
  1. ; $VER: Install_Klotz
  2. ; ---------------------------------------------------------------------------
  3.  
  4. (procedure english (
  5.     (set #version-error "This program requires OS 2.04 or better.")
  6.  
  7.     (set #installing "Installing ")
  8.     (set #docs "documents")
  9.     (set #icon "icon")
  10.     (set #sfx  "sound effects")
  11.  
  12.     (set #welcome ( cat "This script will install the Klotz game on your system. "
  13.             "If the lowlevel.library is present in the LIBS: directory"
  14.             " a special version will be installed, if not you'll get "
  15.             "the direct-hardware-access-version [ won't run on a Draco :-]\n"
  16.             "\n  __      "
  17.             "\n //_)     "
  18.             "\n//__) WARE"
  19.         )
  20.     )
  21.     (set #destdir-prompt "Please select the directory where you want Klotz installed.\n(No directory will be created.)")
  22.     (set #askkeys-prompt "Do you want to use the keyboard-control?" )
  23.     (set #asksfx-prompt "Do you want to have sound effects?" )
  24.     (set #morekeys-prompt "Which key-control do you want to use?" )
  25.     (set #opt0 "default cursor-keys" )
  26.     (set #opt1 "number-block control" )
  27.     (set #opt2 "function-keys" )
  28.     (set #opt3 "space-drop mode" )
  29.     (set #opt4 "left-hand mode" )
  30.  
  31.     (set #nohelp "No help available.")
  32.     (set #destdir-help "The Klotz executable will be copied in this directory.\n")
  33.     (set #askkeys-help "Klotz allows you to control the game by joystick/joypad or by keyboard. The latter is disabled by default. Select 'Yes' to enable it.")
  34.     (set #morekey-help (cat "These are the key-settings:                   \n\n"
  35.                 " Mode|default|numblock|F-keys|spacedrop|lefty|\n"
  36.                 " Key +-------+--------+------+---------+-----+\n"
  37.                 "left | left  |    4   |  F1  | left    |  a  |\n"
  38.                 "right| right |    6   |  F10 | right   |  s  |\n"
  39.                 "down | down  |    2   | space| space   |  z  |\n"
  40.                 "rot L| space |    0   |  F2  | down    | TAB |\n"
  41.                 "rot R| delete|    5   |  F9  |  up     |space|\n"
  42.                 "-----+-------+--------+------+---------+-----+"
  43.             )
  44.     )
  45.     (set #asksfx-help (cat ("The sound effects are all located under the \"sfx\" directory. "
  46.                 "These are 8SVX files. You can easily create your own sfx.")))
  47.  
  48.     (set #yes "Yes")
  49.     (set #no  "No")
  50.   )
  51. )
  52. ; ---------------------------------------------------------------------------
  53. (procedure deutsch (
  54.     (set #version-error "Dieses Programm benötigt OS 2.04 oder besser.")
  55.  
  56.     (set #installing "Installiere ")
  57.     (set #docs "Dokumente")
  58.     (set #icon "Piktogramm")
  59.     (set #sfx "Sound Effekte")
  60.  
  61.     (set #welcome ( cat "Diese Skript installiert das Spiel \"Klotz\"  auf Ihrem System. "
  62.             "Gibt es die \"lowlevel.library\" im LIBS: Verzeichnis, so"
  63.             " wird eine Spezialversion installiert, wenn nicht, erhalten Sie "
  64.             "die Version, die direkt auf die Hardware zugreift.\n"
  65.             "\n  __      "
  66.             "\n //_)     "
  67.             "\n//__) WARE"
  68.         )
  69.     )
  70.     (set #destdir-prompt "Bitte wählen Sie das Verzeichnis,in dem Sie Klotz installieren möchten.\n(Es wird kein Verzeichnis erstellt.)")
  71.     (set #askkeys-prompt "Möchten Sie die Tastatur-Steuerung benutzen?" )
  72.     (set #asksfx-prompt "Möchten Sie Sound Effekte installieren?" )
  73.     (set #morekeys-prompt "Welche Steuerungsmethode möchten Sie nutzen?" )
  74.     (set #opt0 "Cursor-Tasten" )
  75.     (set #opt1 "Nummernblock" )
  76.     (set #opt2 "Funktionstasten" )
  77.     (set #opt3 "Leertaste für Fall" )
  78.     (set #opt4 "Linkshänder-Tasten" )
  79.  
  80.     (set #nohelp "Keine Hilfe vorhanden.")
  81.     (set #destdir-help "Das Klotz-Programm wird in dieses Verzeichnis kopiert.\n")
  82.     (set #askkeys-help "Klotz erlaubt Ihnen die Kontrolle via Joystick/Joypad oder Tastatur. Das letztere ist normalerweise ausgeschaltet. Wählen Sie 'Ja', um es zu aktivieren .")
  83.     (set #morekey-help (cat "Folgende Steuerungen sind voreingestellt:        \n\n"
  84.                 " Modus|Standard|Numblock|F-Tasten|LeerFall|Links|\n"
  85.                 " Taste+--------+--------+--------+--------+-----+\n"
  86.                 "links | left   |    4   |  F1    | left   |  a  |\n"
  87.                 "rechts| right  |    6   |  F10   | right  |  s  |\n"
  88.                 "runter| down   |    2   | space  | space  |  z  |\n"
  89.                 "dreh L| space  |    0   |  F2    | down   | TAB |\n"
  90.                 "dreh R| delete |    5   |  F9    |  up    |space|\n"
  91.                 "------+--------+--------+--------+--------+-----+"
  92.             )
  93.     )
  94.     (set #asksfx-help (cat ("Die Sound Effekte befinden sich im \"sfx\" Verzeichnis. "
  95.                 "Es sind 8SVX Dateien, so daß man leicht eigene Effekte verwenden kann.")))
  96.     (set #yes "Ja")
  97.     (set #no  "Nein")
  98.   )
  99. )
  100. ; ---------------------------------------------------------------------------
  101. (complete 0)
  102. ; check for OS 2.0
  103. (if (< (/ (getversion "exec.library" (resident)) 65536) 37)
  104.     (abort #version-error)
  105. )
  106. ; ---------------------------------------------------------------------------
  107. ; this is somewhat 'safer' than the @language line
  108. (if (= ( getenv "language") "deutsch" ) (deutsch) (english) )
  109. ;(if ( = @language "deutsch" ) (deutsch) (english) )
  110.  
  111. (message #welcome)
  112. (welcome)
  113. (complete 0)
  114.  
  115. (set @default-dest
  116.     (askdir
  117.     (prompt #destdir-prompt)
  118.     (help (cat #destdir-help @askdir-help))
  119.     (default @default-dest)
  120.     )
  121. )
  122.  
  123. (if (exists "LIBS:lowlevel.library")
  124.     (copyfiles
  125.     (source "Klotz")
  126.     (dest @default-dest)
  127.     (prompt #installing "Klotz")
  128.     (help #nohelp)
  129.     )
  130.     (copyfiles
  131.     (source "Klotz_noLL")
  132.     (dest @default-dest)
  133.     (prompt #installing "Klotz")
  134.     (newname "Klotz")
  135.     (help #nohelp)
  136.     )
  137. )
  138. (complete 50)
  139.  
  140. (copyfiles
  141.     (source "Klotz.guide")
  142.     (dest @default-dest)
  143.     (help #nohelp)
  144.     (prompt #installing #docs)
  145.     (infos)
  146. )
  147. (complete 65)
  148.  
  149. (copyfiles
  150.     (source "Klotz.info")
  151.     (dest @default-dest)
  152.     (help #nohelp)
  153.     (prompt #installing #icon)
  154. )
  155. (complete 75)
  156.  
  157. (set usekeys (askbool (prompt #askkeys-prompt)
  158.               (help #askkeys-help)
  159.               (choices #yes #no)
  160.          )
  161. )
  162.  
  163. (if usekeys
  164.     (
  165.     (set keynum (askchoice (prompt #morekeys-prompt)
  166.                 (help #morekey-help)
  167.                 (choices #opt0 #opt1 #opt2 #opt3 #opt4 )
  168.             )
  169.     )
  170.     (tooltype (settooltype "USEKEYS" "")
  171.         (settooltype "KEYS" (select keynum "4f,4e,4d,40,46,19"
  172.                            "2d,2f,1e,2e,0f,19"
  173.                            "50,59,40,51,58,19"
  174.                            "4f,4e,40,4d,4c,19"
  175.                            "20,21,31,42,40,19"
  176.                     )
  177.         )
  178.         (dest (tackon @default-dest "Klotz") )
  179.     )
  180.     )
  181. )
  182. (complete 85)
  183.  
  184. (set usesfx (askbool (prompt #asksfx-prompt)
  185.              (help #asksfx-help)
  186.              (choices #yes #no)
  187.         )
  188. )
  189. (if usesfx ((message "bla") (copyfiles (source "sfx")
  190.               (dest (tackon @default-dest "sfx") )
  191.               (all)
  192.               (help #no-help)
  193.               (prompt #installing #sfx)
  194.        ))
  195.        ((message blubb) (tooltype (settooltype "NOSOUND" "")
  196.              (dest (tackon @default-dest "Klotz"))
  197.        ))
  198. )
  199. (complete 100)
  200.